home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)te.d64 / recol.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  11KB  |  494 lines
  1. 100 REM *******************************
  2. 110 REM *******************************
  3. 120 REM ****                       ****
  4. 130 REM ****  BY BRIAN A.MITCHELL  ****
  5. 140 REM ****                       ****
  6. 150 REM ****  BROCKVILLE, ONTARIO  ****
  7. 160 REM ****                       ****
  8. 170 REM ****     613-342-0733      ****
  9. 180 REM ****                       ****
  10. 190 REM ****       DEC 1983        ****
  11. 200 REM ****                       ****
  12. 210 REM ****      TPUG# 2923       ****
  13. 220 REM ****                       ****
  14. 230 REM *******************************
  15. 240 REM *******************************
  16. 250 REM
  17. 260 FORL=54272TO54296:POKEL,0:NEXT:L=0
  18. 270 U=53280
  19. 280 POKEU,0:POKEU+1,0:POKE54296,15:PRINT"[152]"
  20. 290 GOSUB2730
  21. 300 PRINT"[147]"
  22. 310 PRINT" RECOL [146] INSTRUCTIONS (Y/N)"
  23. 320 GETAN$:IFAN$="N"THEN560
  24. 330 IFAN$<>"Y"THEN320
  25. 340 PRINT""
  26. 350 PRINT"THE COMPUTER WILL GIVE YOU A SEQUENCE OFNUMBERS, ONE AT A TIME";
  27. 360 PRINT" INCREASING BY ONEEACH TIME, UP TO THE SELECTED AMOUNT."
  28. 370 PRINT
  29. 380 PRINT"THE OBJECT IS  TO REMEMBER EACH SEQUENCEOF  NUMBERS  AND  ENTER THEM";
  30. 390 PRINT" EXACTLY  ASTHEY WERE DISPLAYED."
  31. 400 PRINT
  32. 410 PRINT"THERE IS A THREE SECOND TIME LIMIT BETWEEN ENTERING NUMBERS."
  33. 420 PRINT
  34. 430 PRINT"LEVEL 5 PERMITS YOU TO CHOOSE THE NUMBERIN A SEQUENCE ";
  35. 440 PRINT"(FOR YOUNGER PLAYERS)."
  36. 450 GOSUB4990
  37. 460 PRINT"[147]"
  38. 470 PRINT
  39. 480 PRINT"LEVEL 6 FOR 2 TO 4 PLAYERS: EACH  PLAYERIS RESPONSIBLE FOR ";
  40. 490 PRINT"ENTERING A SPECIFIC NUMBER 5,6,7 OR 8 IN THE CORRECT SEQUENCE"
  41. 500 PRINT"IF HE  FAILS TO  DO SO HE IS  ELIMINATEDAND  THE  GAME CONTINUES";
  42. 510 PRINT" UNTIL  THERE ISONLY ONE SURVIVOR."
  43. 520 PRINT"A GREAT GAME FOR BLUFFING YOUR OPPONENT."
  44. 530 PRINT
  45. 540 PRINT"THE INSTRUCTIONS WILL BECOME  MORE CLEARAS YOU LEARN HOW TO PLAY!"
  46. 550 GOSUB4990
  47. 560 DIMC(100)
  48. 570 CC=1
  49. 580 NN=0:SC=0:A=0:SQ=7:S=0
  50. 590 S1=1:S2=1:S3=1:S4=1
  51. 600 GOSUB2360
  52. 610 IFO=6THENGOSUB4340:GOTO630
  53. 620 FORA=1TOC:C(A)=INT(5+(3+1)*RND(1)):NEXTA
  54. 630 PRINT"[147]"
  55. 640 GOSUB2230
  56. 650 FORA=1TOC-D
  57. 660 GOSUB1320
  58. 670 GETS$
  59. 680 IFS$<>""THENPRINT""TAB(9);"[158]WAIT TO ENTER SEQUENCE[152]":S$=""
  60. 690 NEXTA
  61. 700 FORER=1TO10
  62. 710 PRINT""TAB(9);"                      "
  63. 720 FORT=1TO10:NEXTT
  64. 730 PRINT""TAB(8);"[155]>>ENTER SEQUENCE NOW!<<[152]"
  65. 740 NEXTER
  66. 750 FORA=1TOC-D
  67. 760 FORTT=3500TO950STEP-50
  68. 770 GETS$
  69. 780 IFS$="5"THENS=5:GOTO830
  70. 790 IFS$="6"THENS=6:GOTO830
  71. 800 IFS$="7"THENS=7:GOTO830
  72. 810 IFS$="8"THENS=8:GOTO830
  73. 820 IFS$<>"5"THEN900
  74. 830 IFS=C(A)THENDL=1:GOTO1030
  75. 840 IFO=6ANDS=S1THEN900
  76. 850 IFO=6ANDS=S2THEN900
  77. 860 IFO=6ANDS=S3THEN900
  78. 870 IFO=6ANDS=S4THEN900
  79. 880 IFO=6ANDS<>C(A)THENGOSUB4840:GOSUB1810:GOTO1040
  80. 890 IFS<>C(A)THENDL=0:GOSUB1810:GOTO1100
  81. 900 PRINT"";TAB(15);" SECONDS [146]";INT(TT/1000);"[152]"
  82. 910 IFTT=2900ORTT=1900ORTT=950THENGOSUB2180
  83. 920 NEXTTT
  84. 930 PRINT"[147]"
  85. 940 FORI=1TO10
  86. 950 PRINT"            "
  87. 960 GOSUB2180:XV=XV-1
  88. 970 PRINT" TOO LATE! [146]"
  89. 980 FORT=1TO50:NEXTT
  90. 990 NEXTI
  91. 1000 XV=0
  92. 1010 IFO=6THENS=C(A):GOSUB4840:GOSUB4340:GOTO1040
  93. 1020 GOTO1130
  94. 1030 GOSUB1320
  95. 1040 DL=0
  96. 1050 NEXTA
  97. 1060 SC=SC+1
  98. 1070 IFA<>CTHEND=D-1:GOTO630
  99. 1080 GOSUB1960
  100. 1090 GOTO600
  101. 1100 PRINT"[147][155]"
  102. 1110 PRINT" GAME OVER [146]"
  103. 1120 GOSUB4130
  104. 1130 PRINT""
  105. 1140 PRINTTAB(8)"THE CORRECT SEQUENCE WAS"
  106. 1150 PRINTTAB(8);"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][152]"
  107. 1160 GOSUB3380
  108. 1170 FORT=1TO250:NEXTT
  109. 1180 FORA=1TOC-D
  110. 1190 GOSUB1320
  111. 1200 NEXTA
  112. 1210 PRINT""
  113. 1220 PRINTTAB(6)" SCORE [146]";SC;"FOR";C-1;TAB(25)" LEVEL [146]";O;"[152]"
  114. 1230 PRINT
  115. 1240 PRINTTAB(4)" PRESS (E) EXIT    (C) CONTINUE [146]"
  116. 1250 PRINTTAB(4)" [184][184][184][184][184] (R) REPEAT  (S) SELECT   [146]"
  117. 1260 GETA$:IFA$=""THEN1260
  118. 1270 IFA$="C"THENCC=CC+1:GOTO630
  119. 1280 IFA$="S"THEN570
  120. 1290 IFA$="E"THENEND
  121. 1300 IFA$="R"THEN1170
  122. 1310 IFA$<>"C"THEN1260
  123. 1320 IFC(A)=5THENC$="[156]":V=10:M=1
  124. 1330 IFC(A)=6THENC$="":V=15:M=11
  125. 1340 IFC(A)=7THENC$="":V=20:M=21
  126. 1350 IFC(A)=8THENC$="[158]":V=25:M=31
  127. 1360 PRINT""
  128. 1370 PRINTTAB(M)C$"[205]     [206]"
  129. 1380 PRINTTAB(M)" [207][183][183][183][208] "
  130. 1390 PRINTTAB(M)" [155]<";C(A);"[157] >";C$;" "
  131. 1400 PRINTTAB(M)" [204][175][175][175][186] "
  132. 1410 PRINTTAB(M)"[206]     [205]"
  133. 1420 GOSUB1750
  134. 1430 IFDL=1THEN1450
  135. 1440 FORT=1TO100:NEXTT
  136. 1450 PRINT""
  137. 1460 PRINTTAB(M)"[152]       "
  138. 1470 PRINTTAB(M)" [205]   [206] "
  139. 1480 PRINTTAB(M)"  [146][155][171][219][179][152]  "
  140. 1490 PRINTTAB(M)" [206]   [205] "
  141. 1500 PRINTTAB(M)"       [152]"
  142. 1510 IFDL=1THEN1530
  143. 1520 FORT=1TO150:NEXTT
  144. 1530 DL=0:T=0
  145. 1540 RETURN
  146. 1550 IFS=5THENM=1
  147. 1560 IFS=6THENM=11
  148. 1570 IFS=7THENM=21
  149. 1580 IFS=8THENM=31
  150. 1590 SP$=""
  151. 1600 TP$=TP$+SP$
  152. 1610 PRINT""+TP$
  153. 1620 PRINTTAB(M)"[221][221][221][221][221][221][221]"
  154. 1630 PRINTTAB(M)"  [205] [206]  "
  155. 1640 PRINTTAB(M)"[221]  [214]  [221]"
  156. 1650 PRINTTAB(M)"  [206] [205]  "
  157. 1660 PRINTTAB(M)"       "
  158. 1670 PRINT""+TP$
  159. 1680 PRINTTAB(M)" ----- "
  160. 1690 PRINTTAB(M)"  [205] [206]  "
  161. 1700 PRINTTAB(M)"   [214]   "
  162. 1710 PRINTTAB(M)"  [206] [205]  "
  163. 1720 PRINTTAB(M)" ----- [152]"
  164. 1730 DL=0:T=0
  165. 1740 RETURN
  166. 1750 POKE54273,4+V:POKE54272,73:POKE54276,33
  167. 1760 POKE54277,128:POKE54278,17
  168. 1770 FORZ=1TO50:NEXTZ
  169. 1780 POKE54276,0
  170. 1790 NH=0:V=0:POKE54273,0:POKE54272,0
  171. 1800 RETURN
  172. 1810 REM-L EFFECT
  173. 1820 PRINT"";TAB(15)"                "
  174. 1830 PRINT"";TAB(6)"                           "
  175. 1840 FORK=100TO20STEP-10
  176. 1850 PRINT""TAB(8)"                        "
  177. 1860 POKE54276,17:POKE54277,40:POKE54278,136
  178. 1870 POKE54273,K:POKE54272,250-K
  179. 1880 GOSUB1550
  180. 1890 IFO<>6THENPRINT""TAB(12)"[155][214][214][214][214] ERROR [214][214][214][214][152]"
  181. 1900 NEXTK
  182. 1910 POKE54276,0
  183. 1920 POKE54273,0:TP$=""
  184. 1930 FORT=1TO450:NEXTT
  185. 1940 IFO=6THENGOSUB4340:DL=0
  186. 1950 RETURN
  187. 1960 REM W-EFFECT
  188. 1970 FORG=0TO34
  189. 1980 PRINT"";TAB(5);"                                "
  190. 1990 DL=1:V=G+25
  191. 2000 GOSUB3550
  192. 2010 PRINT"";TAB(5);"++++++ CONGRATULATIONS ++++++[152]"
  193. 2020 GOSUB3110
  194. 2030 NEXTG
  195. 2040 POKE54276,0
  196. 2050 CV=23
  197. 2060 FORNT=1TO3
  198. 2070 IFNT=1THENNT$=">>  WON! >>>>>>>>"
  199. 2080 IFNT=2THENNT$=">>  HAVE"
  200. 2090 IFNT=3THENNT$=">>>> YOU "
  201. 2100 CV=CV-5
  202. 2110 FORGR=0TOCV
  203. 2120 V=V+3:GOSUB3110
  204. 2130 PRINT""
  205. 2140 PRINTTAB(GR)"[158]";NT$;""
  206. 2150 NEXTGR:NEXTNT:POKE54276,0
  207. 2160 FORZ=1TO1800:NEXTZ
  208. 2170 RETURN
  209. 2180 POKE54287,8:POKE54291,9:POKE54287,29+XV:POKE54292,128
  210. 2190 POKE54290,17
  211. 2200 FORZ=1TO70:NEXTZ
  212. 2210 POKE54290,0
  213. 2220 RETURN
  214. 2230 PRINT"[152] SEQUENCE";C-D;"[157] OF";KR;"[157] [146]";TAB(29);"[158] LEVEL [146]";O
  215. 2240 PRINT"";TAB(3)"[152]- TRY #";CC;"-"
  216. 2250 IFC-D>1THENGOSUB3380:GOTO2270
  217. 2260 GOSUB3150
  218. 2270 PRINT""
  219. 2280 IFC-D=KRTHENGOSUB4000
  220. 2290 IFC-D>1THENPRINT"";TAB(11)">>>>>>[146]WAIT!<<<<<<[146][152]":GOTO2340
  221. 2300 PRINTTAB(11)" PRESS SPACE BAR [146]"
  222. 2310 GETN$:IFN$=""THEN2310
  223. 2320 IFN$=CHR$(32)THENPRINTTAB(11)"[145]                   "
  224. 2330 IFN$<>CHR$(32)THEN2310
  225. 2340 FORT=1TO200:NEXTT
  226. 2350 RETURN
  227. 2360 PRINT"[147]"
  228. 2370 W=W+1
  229. 2380 PRINTTAB(17)"[158]RECOL"
  230. 2390 PRINTTAB(17)"[155][192][192][192][192][192][152]"
  231. 2400 PRINT" SELECT LEVEL [146]"
  232. 2410 PRINT
  233. 2420 PRINTTAB(11)" LEVEL [146]    SEQUENCE [146]"
  234. 2430 GOSUB4220
  235. 2440 FORG=1TO5
  236. 2450 CL$="[152]":NT$="[214]"
  237. 2460 IFM(G)=1THENCL$="[158]":NT$=M$(G)
  238. 2470 PRINT
  239. 2480 PRINTTAB(12)CL$;"(";G;")";" --- ";S(G);TAB(26);"[";NT$;"]"
  240. 2490 NEXTG
  241. 2500 PRINT
  242. 2510 PRINTTAB(12)"[159]( 6 ) ---  2 TO 4  PLAYERS "
  243. 2520 IFW=1THENGOSUB3770
  244. 2530 PRINT:PRINT"[155] SELECT FROM 1 TO 6 [146]"
  245. 2540 GETO$:IFO$=""THEN2540
  246. 2550 CC=1
  247. 2560 IFO$="1"THENO=1:C=8:D=7:KR=7:GOTO2630
  248. 2570 IFO$="2"THENO=2:C=12:D=11:KR=11:GOTO2630
  249. 2580 IFO$="3"THENO=3:C=17:D=16:KR=16:GOTO2630
  250. 2590 IFO$="4"THENO=4:C=22:D=21:KR=21:GOTO2630
  251. 2600 IFO$="5"THENO=5:GOSUB2650:GOTO2630
  252. 2610 IFO$="6"THENO=6:GOSUB4480
  253. 2620 IFO$<>"6"THEN2540
  254. 2630 SC=0
  255. 2640 RETURN
  256. 2650 PRINT:
  257. 2660 PRINT"[155][161](2 TO 35) SEQUENCE =";SQ
  258. 2670 PRINT
  259. 2680 INPUT"[161]CHANGE (AND[206]OR) PRESS  RETURN [146]";SQ
  260. 2690 IFSQ>35ORSQ<2THENPRINT"[145][145]":SQ=1:GOTO2680
  261. 2700 C=SQ+1:D=SQ:KR=SQ
  262. 2710 IFSQ<1THENO=1
  263. 2720 RETURN
  264. 2730 PRINT"[147]"
  265. 2740 FORDP=1TO4
  266. 2750 PRINT""
  267. 2760 DL=1
  268. 2770 GOSUB3690
  269. 2780 PRINTTAB(M)C$"[192][192][192][192][192][192][192]"
  270. 2790 PRINTTAB(M)" RECOL "
  271. 2800 PRINTTAB(M)"[192][192][192][192][192][192][192]"
  272. 2810 GOSUB1750
  273. 2820 NEXTDP
  274. 2830 FORDP=4TO1STEP-1
  275. 2840 PRINT""
  276. 2850 GOSUB3690
  277. 2860 PRINTTAB(M)C$"[192][192][192][192][192][192][192]"
  278. 2870 PRINTTAB(M)" RECOL "
  279. 2880 PRINTTAB(M)"[192][192][192][192][192][192][192]"
  280. 2890 GOSUB1750
  281. 2900 NEXTDP
  282. 2910 FORDP=1TO4
  283. 2920 PRINT""
  284. 2930 GOSUB3690
  285. 2940 PRINTTAB(M)C$"[192][192][192][192][192][192][192]"
  286. 2950 PRINTTAB(M)" RECOL "
  287. 2960 PRINTTAB(M)"[192][192][192][192][192][192][192]"
  288. 2970 GOSUB1750
  289. 2980 NEXTDP
  290. 2990 FORDP=1TO4
  291. 3000 PRINT""
  292. 3010 GOSUB3690
  293. 3020 PRINTTAB(M)C$"[192][192][192][192][192][192][192]"
  294. 3030 PRINTTAB(M)" RECOL "
  295. 3040 PRINTTAB(M)"[192][192][192][192][192][192][192]"
  296. 3050 GOSUB1750
  297. 3060 NEXTDP
  298. 3070 PRINT
  299. 3080 PRINTTAB(21)"[155]BY-BRIAN MITCHELL"
  300. 3090 FORT=1TO1400:NEXTT
  301. 3100 RETURN
  302. 3110 POKE54276,17:POKE54277,130:POKE54278,136
  303. 3120 POKE54275,50:POKE54274,200
  304. 3130 POKE54273,2+V:POKE54272,6+V
  305. 3140 RETURN
  306. 3150 REM BACKDROP DISPLAY 1
  307. 3160 FORLN=1TO38
  308. 3170 PRINT""
  309. 3180 PRINTTAB(LN)"[221]"
  310. 3190 XV=XV+1
  311. 3200 GOSUB3740
  312. 3210 NEXTLN
  313. 3220 POKE54290,0
  314. 3230 FORF=30TO0STEP-10
  315. 3240 FORL=0TOF
  316. 3250 PRINT""
  317. 3260 PRINTTAB(L)" [152]       "
  318. 3270 PRINTTAB(L)"  [205]   [206] "
  319. 3280 PRINTTAB(L)"[221]  [146][155][171][219][179][152]  [146][221]"
  320. 3290 PRINTTAB(L)"  [206]   [205] "
  321. 3300 PRINTTAB(L)"        [152]"
  322. 3310 NEXTL
  323. 3320 XV=-15:GOSUB2180
  324. 3330 NEXTF
  325. 3340 FORT=1TO300:NEXTT
  326. 3350 XV=0
  327. 3360 IFO=6THENGOSUB3380
  328. 3370 RETURN
  329. 3380 FORM=0TO30STEP10
  330. 3390 CN$="[152]"
  331. 3400 IFO=6ANDV1=1ANDM=0THENCN$=""
  332. 3410 IFO=6ANDV2=1ANDM=10THENCN$=""
  333. 3420 IFO=6ANDV3=1ANDM=20THENCN$=""
  334. 3430 IFO=6ANDV4=1ANDM=30THENCN$=""
  335. 3440 A$="[221]"
  336. 3450 IFM=30THENA$=""
  337. 3460 PRINT""
  338. 3470 PRINTTAB(M);CN$"        "
  339. 3480 PRINTTAB(M)"  [205]   [206] "
  340. 3490 PRINTTAB(M)"[221]  [146][155][171][219][179]";CN$;"  [146][152][221]";A$
  341. 3500 PRINTTAB(M);CN$"  [206]   [205] "
  342. 3510 PRINTTAB(M)"        [152]"
  343. 3520 NEXTM
  344. 3530 FORT=1TO50:NEXTT:M=0
  345. 3540 RETURN
  346. 3550 REM W-EFFECT
  347. 3560 PRINT""
  348. 3570 PRINTTAB(G)"[155] [205][209][206]"
  349. 3580 PRINTTAB(G)"[150]>[155] [214] "
  350. 3590 PRINTTAB(G)"  [205][205]"
  351. 3600 PRINT""
  352. 3610 PRINTTAB(G)"    "
  353. 3620 PRINTTAB(G)">    "
  354. 3630 PRINTTAB(G)"    "
  355. 3640 PRINT""
  356. 3650 PRINTTAB(G)"   [209] "
  357. 3660 PRINTTAB(G)"[158]>[155] [206][214][205]"
  358. 3670 PRINTTAB(G)"  [206][206] "
  359. 3680 RETURN
  360. 3690 IFDP=1THENM=1:V=10:C$="[156]"
  361. 3700 IFDP=2THENM=11:V=15:C$="[153]"
  362. 3710 IFDP=3THENM=21:V=20:C$="[154]"
  363. 3720 IFDP=4THENM=31:V=25:C$="[158]"
  364. 3730 RETURN
  365. 3740 POKE54287,2:POKE54291,74:POKE54287,39+XV:POKE54292,128
  366. 3750 POKE54290,129
  367. 3760 RETURN
  368. 3770 RESTORE
  369. 3780 POKE54275,145:POKE54278,194:POKE54296,10
  370. 3790 READHF,LF,DR
  371. 3800 IFHF<0THENPOKE54276,0:POKE54296,15:GOTO3990
  372. 3810 POKE54273,HF:POKE54272,LF
  373. 3820 POKE54276,65
  374. 3830 FORT=1TODR/2:NEXT
  375. 3840 POKE54276,33:FORT=1TO15:NEXT
  376. 3850 GOTO3790
  377. 3860 DATA19,63,400
  378. 3870 DATA28,214,200,22,227,100
  379. 3880 DATA28,214,100,22,227,100
  380. 3890 DATA28,214,100,22,227,325
  381. 3900 DATA21,154,100,18,42,110
  382. 3910 DATA21,154,100,18,42,100
  383. 3920 DATA21,154,100,18,42,375
  384. 3930 DATA16,47,250,18,43,100
  385. 3940 DATA19,63,75,21,154,100
  386. 3950 DATA24,63,300,24,63,350
  387. 3960 DATA19,63,300,14,107,350
  388. 3970 DATA19,63,100,14,107,100
  389. 3980 DATA19,63,400,-1,-1,-1
  390. 3990 RETURN
  391. 4000 FORDS=1TO6
  392. 4010 PRINT""
  393. 4020 PRINTTAB(6)"[215]                         [215]"
  394. 4030 V=5:GOSUB1750
  395. 4040 PRINTTAB(6)"[145][155]- LAST NUMBER IN SEQUENCE -[152]"
  396. 4050 V=5:GOSUB1750
  397. 4060 NEXTDS
  398. 4070 PRINT"[145][145]"
  399. 4080 FORV=1TO39
  400. 4090 PRINT" ";
  401. 4100 FORT=1TO50:NEXTT
  402. 4110 NEXTV
  403. 4120 RETURN
  404. 4130 FORDS=0TO11
  405. 4140 PRINT""
  406. 4150 PRINTTAB(12)" ---- "
  407. 4160 DL=1:V=11+DS:GOSUB1750
  408. 4170 PRINTTAB(12)"[145] TILT [146]"
  409. 4180 DL=1:V=11-DS:GOSUB1750
  410. 4190 NEXTDS
  411. 4200 DL=0
  412. 4210 RETURN
  413. 4220 IFCC=1ANDO=1ANDSC=7THENM(1)=1:W=1:M$(1)="[216]"
  414. 4230 IFCC=1ANDO=1ANDSC<7THENM(1)=0:W=2
  415. 4240 IFCC=1ANDO=2ANDSC=11THENM(2)=1:W=1:M$(2)="[193]"
  416. 4250 IFCC=1ANDO=2ANDSC<11THENM(2)=0:W=2
  417. 4260 IFCC=1ANDO=3ANDSC=16THENM(3)=1:W=1:M$(3)="[218]"
  418. 4270 IFCC=1ANDO=3ANDSC<16THENM(3)=0:W=2
  419. 4280 IFCC=1ANDO=4ANDSC=21THENM(4)=1:W=1:M$(4)="[211]"
  420. 4290 IFCC=1ANDO=4ANDSC<21THENM(4)=0:W=2
  421. 4300 IFCC=1ANDO=5ANDSC=SQTHENM(5)=1:W=1:M$(5)="*"
  422. 4310 IFCC=1ANDO=5ANDSC<SQTHENM(5)=0:W=2
  423. 4320 S(1)=7:S(2)=11:S(3)=16:S(4)=21:S(5)=SQ
  424. 4330 RETURN
  425. 4340 IFS=5THENS1=5:V1=1
  426. 4350 IFS=6THENS2=6:V2=1
  427. 4360 IFS=7THENS3=7:V3=1
  428. 4370 IFS=8THENS4=8:V4=1
  429. 4380 IFV1=1ANDV2=1ANDV3=1THENW=4:GOTO4900
  430. 4390 IFV2=1ANDV3=1ANDV4=1THENW=1:GOTO4900
  431. 4400 IFV3=1ANDV4=1ANDV1=1THENW=2:GOTO4900
  432. 4410 IFV4=1ANDV1=1ANDV2=1THENW=3:GOTO4900
  433. 4420 FORA=1TOC
  434. 4430 C(A)=INT(5+(3+1)*RND(1))
  435. 4440 IFC(A)=S1ORC(A)=S2ORC(A)=S3ORC(A)=S4THEN4430
  436. 4450 NEXTA
  437. 4460 D=35
  438. 4470 RETURN
  439. 4480 PRINT"[147]"
  440. 4490 PRINT" ----------- [146]"
  441. 4500 PRINT" ELIMINATION [146]"
  442. 4510 PRINT" ----------- [146]"
  443. 4520 PRINT
  444. 4530 INPUT"ENTER # OF PLAYERS";NO
  445. 4540 PRINT
  446. 4550 IFNO<2ORNO>4THENPRINT" LEVEL 6 [146]  -TWO TO FOUR PLAYERS":PRINT:GOTO4530
  447. 4560 PRINT
  448. 4570 IFNO=3THEN4640
  449. 4580 IFNO=4THEN4710
  450. 4590 PRINT"      [155]PLAYER 1 - COL 5 PURPLE [156]     "
  451. 4600 PRINT"[155]"
  452. 4610 PRINT"      PLAYER 2 - COL 8 YELLOW [158]     "
  453. 4620 S2=6:S3=7:V2=1:V3=1
  454. 4630 GOTO4780
  455. 4640 PRINT"      PLAYER 1 - COL 5 PURPLE [156]     "
  456. 4650 PRINT"[155]"
  457. 4660 PRINT"      PLAYER 2 - COL 6 GREEN       "
  458. 4670 PRINT"[155]"
  459. 4680 PRINT"      PLAYER 3 - COL 8 YELLOW [158]     "
  460. 4690 S3=7:V3=1
  461. 4700 GOTO4780
  462. 4710 PRINT"      PLAYER 1 - COL 5 PURPLE [156]     "
  463. 4720 PRINT"[155]"
  464. 4730 PRINT"      PLAYER 2 - COL 6 GREEN       "
  465. 4740 PRINT"[155]"
  466. 4750 PRINT"      PLAYER 3 - COL 7 BLUE        "
  467. 4760 PRINT"[155]"
  468. 4770 PRINT"      PLAYER 4 - COL 8 YELLOW [158]     "
  469. 4780 C=36:D=35:KR=35:S=0
  470. 4790 PRINT""
  471. 4800 PRINTTAB(11)"[155] PRESS SPACE BAR [146]"
  472. 4810 GETA$:IFA$<>CHR$(32)THEN4810
  473. 4820 PRINTTAB(10)"[145][192]ONE MOMENT PLEASE[192]"
  474. 4830 RETURN
  475. 4840 IFS=5THENPN=1
  476. 4850 IFS=6THENPN=2
  477. 4860 IFS=7THENPN=3
  478. 4870 IFS=8THENPN=4
  479. 4880 PRINT"[155]"TAB(9)"---PLAYER";PN;"IS OUT---[152]"
  480. 4890 RETURN
  481. 4900 PRINT"[147]"
  482. 4910 PRINT""
  483. 4920 PRINT" [158] SURVIVOR [146][155] PLAYER";W
  484. 4930 GOSUB3380:GOSUB1960
  485. 4940 S=0:S1=0:S2=0:S3=0:S4=0
  486. 4950 V1=0:V2=0:V3=0:V4=0:CC=CC+1
  487. 4960 JB=JB+1
  488. 4970 IFJB=2THENRUN
  489. 4980 GOTO580
  490. 4990 PRINT""
  491. 5000 PRINTTAB(11)" PRESS SPACE BAR "
  492. 5010 GETAN$:IFAN$<>CHR$(32)THEN5010
  493. 5020 RETURN
  494.